home *** CD-ROM | disk | FTP | other *** search
/ Aminet 21 / Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso / Aminet / util / batch / rtutils.lha / rtutils / rtUtilsDemoScript.en < prev    next >
Text File  |  1989-08-03  |  1KB  |  40 lines
  1. failat 21
  2. resident rtEZReq pure
  3. resident rtGetString pure
  4. set DD 1
  5. set rtgstext `rtGetString TITLE="Enter Any text" DEF="" ALLOWEMPTY`
  6. set ezreq1 `rtEZReq "You entered: *"$rtgstext*"*NIs that correct?" "_Yes|_No"`
  7. if "$ezreq1" EQ "1"
  8.    rtEZReq >NIL: "See how simple is that" "_I see"
  9.    skip show_idcmp
  10. EndIf
  11. Lab repeatit1
  12. set ezreq1 `rtEZReq "Think again!!!*NYou entered: *"$rtgstext*"*NIs that correct?" "_Yes|_No"`
  13. If "$ezreq1" NOT EQ "1"
  14.    Skip repeatit1 BACK
  15. EndIf
  16. Lab show_idcmp
  17. set ezreq2 `rtEZReq "Please remove a disk or press Okay" "_Okay" DISKREMOVED`
  18. if "$ezreq2" NOT EQ "-1"
  19.    set ezreq3 `rtEZReq "What, don't you have a floppy drive" "_Yes, I have!|_No, I do NOT"`
  20.    If "$ezreq3" EQ "1"
  21.       Skip show_idcmp BACK
  22.    EndIf
  23.    set DD 0
  24.    rtEZReq >NIL: "I am so sorry!" "_I know"
  25. EndIf
  26.  
  27. If "$DD" EQ "1"
  28.    rtEZReq >NIL: "Please reinsert the diskette*N(or any other diskette)" DISKINSERTED
  29. EndIf
  30. rtEZReq >NIL: "That's all folks!*NPress any key" VKEY
  31.  
  32. Lab Cleanup ; koniec
  33. resident rtEZReq REMOVE
  34. resident rtGetString REMOVE
  35. unset DD
  36. unset ezreq1
  37. unset ezreq2
  38. unset ezreq3
  39. unset RTGSTEXT
  40.